10 PRINT"[147]":A$="                                       "
20 PRINTA$:PRINT"  [146] [164][164][164][164][164][164][164][164][164][164][164][169]      [146] [164][164][164][164][164][164][164][164][164][169]       [146]"
30 PRINT"  [146]         KHZ  GRF  [146]         %  PLS   [146]"
40 PRINT"  [169]";LEFT$(A$,19);"[169]";LEFT$(A$,18)
50 PRINTA$:PRINT"  [146] [164][164][164][164][164][164][164][164][164][164][164][169]         [146]  [169]";LEFT$(A$,13)
60 PRINT"  [146]          HZ  FRQ WAV [146]    DREIECK    "
70 PRINT"  [169]";LEFT$(A$,22);"[146]    SAEGEZAHN  "
80 PRINTLEFT$(A$,25);"[146]    RECHTECK   "
90 PRINT"  [146]  [169][146]  [169][146]  [169][146]  [169][146]  [169][146]  [169][146]  [169] [146]    RAUSCHEN   "
100 B$="  [146]   [146]   [146]   [146]   "
110 B$=B$+"[146]   [146]   [146]   "
120 PRINTB$;" [146] [192]  AUS        "
130 PRINTB$;" [169]";RIGHT$(A$,14)
140 PRINTB$;RIGHT$(A$,16)
150 PRINTB$;"    [146][169]       TES "
160 PRINTB$;"  = [146]  [146][209] RMD     "
170 PRINTB$;" [146][169]          END "
180 PRINTB$;"    [146][169]";RIGHT$(A$,11)
190 PRINT"  [146] [210] [146] [210] [146] [210] [146] [210] [146] [210] [146] [210] [146]     = [146]  [146][209] SYN VOI "
200 PRINT"  [169]  [169]  [169]  [169]  [169]  [169]  [169]   [146][169]   ";RIGHT$(A$,11)
210 PRINT"   A  D  S  R  V  R  F     [146][169]       [146] [164][169] "
220 PRINT"   T  E  U  E  O  E  I   = [146]  [146][209] FIL [146] 1  "
230 PRINT"   T  C  S  L  L  S  L  [146][169]          [169]   "
240 PRINTA$:PRINTA$;
250 FORI=55296TO56255:POKEI,12:NEXTI:FORI=56256TO56295:POKEI,11:NEXTI
260 X=2:Y=10:B=21:H=10:C=15:GOSUB500
270 Y=11:H=8:C=0:FORS=0TO6:X=3+S*3:GOSUB520:NEXTS
280 X=2:Y=2:B=13:H=3:C=15:GOSUB500:Y=6:GOSUB500
290 X=3:Y=2:B=11:H=2:C=13:GOSUB500:Y=6:GOSUB500
300 X=21:Y=2:B=11:H=3:C=15:GOSUB500
310 X=22:Y=2:B=9:H=2:C=13:GOSUB500
320 X=24:Y=6:B=3:H=7:C=15:GOSUB500
330 X=25:Y=7:H=5:C=0:GOSUB520
340 X=24:Y=14:B=4:H=9:C=15:GOSUB500
350 X=25:B=2:C=0:FORS=0TO2:Y=15+S*3:GOSUB510:NEXTS
360 X=35:Y=20:B=3:H=3:C=15:GOSUB500
370 X=36:Y=20:H=2:C=13:GOSUB520
380 POKE55925,0:POKE56045,0:POKE56165,0
390 AD=1024:N=1000:N$="MASK":GOSUB420
400 AD=55296:N$="C.MASK":GOSUB420
410 END
420 OPEN1,8,1,N$
430 PRINT#1,CHR$(AD-INT(AD/256)*256);
440 PRINT#1,CHR$(AD/256);
450 FORI=0TON-1
460 PRINT#1,CHR$(PEEK(AD+I));
470 NEXTI
480 CLOSE1
490 RETURN
500 FORI1=XTOX+B-1:FORI2=YTOY+H-1:POKE55296+I1+I2*40,C:NEXTI2,I1:RETURN
510 FORI=XTOX+B-1:POKE55296+I+Y*40,C:NEXTI:RETURN
520 FORI=YTOY+H-1:POKE55296+X+I*40,C:NEXTI:RETURN